home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / misc / math / mathan.lha / mathan / rexx / Mathan.bed next >
Encoding:
Text File  |  1997-07-27  |  426 b   |  31 lines
  1. /*
  2. ** $VER: Mathan.bed
  3. **
  4. ** Mathan ARexx Macro for Blacks Editor
  5. **
  6. ** (Evaluates the current line)
  7. **
  8. */
  9.  
  10. OPTIONS RESULTS
  11.  
  12. GetLine
  13. text=RESULT
  14. ADDRESS 'Mathan'
  15. text                        /* Send the string to Mathan */
  16. rlin=RESULT
  17. ADDRESS
  18. IF Open(file,'T:mth.txt',WRITE) THEN DO
  19.     WriteLn(file,rlin)
  20.     Close(file)
  21.     SetInputLock ON
  22.     SetDisplayLock ON
  23.     MoveEOL
  24.     InsertLine
  25.     InsertFile 'T:mth.txt'
  26.     SetDisplayLock OFF
  27.     SetInputLock OFF
  28.     END
  29. END
  30.  
  31.